home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / progjour / 1988 / 01 / whetlin / secondp.for < prev    next >
Text File  |  1987-12-22  |  272b  |  12 lines
  1. *     a SECOND function for Prospero Fortran 77
  2.  
  3. *    Author:    M. Steven Baker
  4. *    Date:    May 20, 1987
  5. *
  6.        real function second()
  7.        integer*4 hh,mm,ss,hd
  8.        call TIME(hh,mm,ss,hd)
  9.        second = float(hh)*3600 + float(mm*60+ss) + float(hd)/100
  10.        end
  11.  
  12.